title	setfmd.mac version 1.0
;	this will set the the file attributes on the FCB passed 
;	from the calling program

;	by Dick Lieber	1/3/81


bdos	equ	5
wrcon	equ	2
wrbuf	equ	9
setattr	equ	30	;set flags

entry	setfmd		;set flags module

setfmd:
;	process passed parameter 
;	makes hl point to passed string
;
	inx	h	;pass length byte
	mov	e,m
	inx	h	;get address of passed string into de
	mov	d,m	;de points to file name (actually begining
			;of a FCB
	mvi	c,setattr
	call	bdos
	ret
	
	end
